﻿Public Class frmMenu

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        If MessageBox.Show("ต้องการออกจากระบบหรือไม่", "แจ้งให้ทราบ", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If        
    End Sub

    Private Sub btnMenu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu1.Click
        Dim frm As New frmMain
        frm.ShowDialog()
    End Sub

    Private Sub btnMenu2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New frmOut_Transcript
        frm.ShowDialog()
    End Sub

    Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnACAD.Click
        Dim frm As New frmACAD
        frm.ShowDialog()
    End Sub

    Private Sub frmMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = String.Format("Menu - v{0}", My.Application.Info.Version)
    End Sub

    Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click
        Dim frm As New frmReportCriteria
        frm.ShowDialog()
    End Sub
End Class